home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / RLaB 1.18c / toolbox / fliplr.r < prev    next >
Encoding:
Text File  |  1994-02-21  |  445 b   |  23 lines  |  [TEXT/ttxt]
  1. //-------------------------------------------------------------------//
  2.  
  3. //  Syntax:    fliplr ( A )
  4.  
  5. //  Description:
  6.  
  7. //  fliplr flips all the elements of a vector (or matrix) from left to
  8. //  right. 
  9.  
  10. //-------------------------------------------------------------------//
  11.  
  12. fliplr = function(A) 
  13. {
  14.   local(B);
  15.   if (class (A) != "num") 
  16.   {
  17.     error("fliplr: Only matrix arguments supported");
  18.   }
  19.  
  20.   B[;1:A.nc] = A[;A.nc:1:-1];
  21.   return B;
  22. };
  23.